module Main where 
 
import Prelude
 
import Effect (Effect)
 
import Effect.Console (log)
 
import Tone (Tone(..), interval)
 
firstRow :: Array Tone 
 
firstRow = [ B, As, G, Cs, Ds, C, D, A, Fs, E, Gs, F ]
 
main :: Effect Unit 
 
main = do 
 
 log $ show $ interval As B 
